﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
dim Page,PageSize

	PageSize=15

	dim rs,sql,i

    	Page = Request("page")      '当前页数
    	If Page = "" Then Page = 1
   	If Not IsNumeric(Page) Then Page = 1
    	Page = CLng(Page)
    	If Page < 1 Then Page = 1
select case v
case "0"
we0="<br/>"
Randomize()
book="跳到第<input name='Page' format='*N' size='2' maxlength='5'/><anchor>页<go href='online.asp?sid="&sidd&"&amp;run="& Int((9999) * Rnd() + 1) &"' method='post'><postfield name=""Page"" value=""$(Page:n)"" /></go></anchor><br/>"
%>
<card title="在线会员"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
Randomize()
book=""&dao&"<form action=""online.asp?sid="&sidd&"&run="& Int((9999) * Rnd() + 1) &""" method=""post"">跳到第<input type=""text"" name=""Page"" value="""" format=""*N"" size=""2"" maxlength=""5""/><input type=""submit"" value=""页"" /></form>"&we0&""
%>
<title>在线会员</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select


		qingtian.info
%>
<%=qingtian.qingsav("41")%>
   <%
	Set Rs = Server.CreateObject("Adodb.Recordset")

	Sql = "select name,nid,dltime from qingtian_online order by [time]  desc,[nid] desc"
	Rs.Open Sql,conn,1,1 


	if not (rs.bof and rs.eof)  then
				Rs.PageSize = PageSize	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage


		For i=1 to Rs.PageSize
			If Rs.Eof Then
				exit For
			End If
dat=i+(page-1)*Rs.PageSize
dat1=dat mod 2
if dat1=0 then 
%><%=we%><%=dat%>.
<%else%>
<%=sou%><%=dat%>.
<%end if%>
<%
		if rs("nid")>0 then
		%>
		<a href="/user/spacev.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>&amp;urls=<%=qingtian.wapurl%>"><%=qingtian.utf8(rs("name"))%></a><%=we0%>
		<%
		else
		%>
		<%=qingtian.utf8(rs("name"))%><%=we0%>
		<%
		end if
		Rs.MoveNext
		Next

       
%>
<%=hr%>
<%
                if rs.PageCount>1 then
                    Response.Write dao
                end if
   		'分页
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='online.asp?page=" & Page + 1 & "&amp;sid="&sidd&"'>下页</a>")
    		End If
   		If Page > 1 Then
    		    Response.Write("<a href='online.asp?page=" & Page - 1 & "&amp;sid="&sidd&"'>上页</a>")
    		End If
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='online.asp?page=" & rs.PageCount & "&amp;sid="&sidd&"'>末页</a>")
    		End If
    		If Page > 1 Then
    		    Response.Write("<a href='online.asp?page=1&amp;sid="&sidd&"'>首页</a>"&we0&"")
    		Elseif rs.PageCount >1 then
    		    Response.Write we0
    		End If
            
    		Randomize()
    
    		If rs.PageCount > 2 Then
    		    %>
		<%=book%>
		<%
     		    Response.Write("" & we & "[第"&Page&"/总"&rs.PageCount&"页/"&rs.RecordCount&"条]"&we0&"")
    		End If

		else
    		    %>
<%=we%>暂无访客！<%=we0%>
		<%
		end if
		Rs.close
	set rs=nothing

%>
<%=qingtian.qingsav("42")%>

<%
end Function
%>
